\version "2.18"
date = #(strftime "Version: %d %B %Y" (localtime (current-time)))

\header {
  title = "Utah Feelgood Music"
  subtitle = ""
  composer = "Keith"
  source = ""
  style = ""
  copyright = ""
  lastupdated = ""
  tagline = \markup {\bold \date}
}

% music pieces
%part: melody
melody = {
  \set Staff.instrumentName = "Melody "
  \set Score.markFormatter = #format-mark-box-letters
  \relative c' {
    \key c \minor
    \tempo 4 = 120
    \compressFullBarRests
    \override MultiMeasureRest.expand-limit = #2

    \mark \default

    | R1*8
    \bar "||"

    \mark \default

    | r8 es r es es r es r
    | r8 a as4 a8 as4 ges8
    | r8 es r es es r es r
    | r4 r8 es'4.-\bendAfter #-8 r4
    | r8 es, r es es r es r
    | r8 a as4 a8 as4 ges8
    | es8-- es r es es r es r
    | r4 r8 es'4.-\bendAfter #-8 r4
    \bar "||"

    \mark \default

    | des,8 r des r f des r des
    | r8 des r des16 r f 4 des8. r16
    | des8 r des r f des r des
    | r8 f r des16 r f 4 des8. r16
    | des8 r des r f des r des
    | r8 des r des16 r f 4 des8. r16
    | des8 r des r f des r des
    | R1
    \bar "||"

    \mark \default

    | f'2-- r8 es r f
    | des8 r des r bes des r es
    | f2-- r8 es r es
    | R1
    | f2-- r8 es r f
    | des8 r des r bes des r es
    | f2-- r8 es r bes
    | R1
    \bar "|."

  }
}

%part: harmony
harmony = {
  \set Staff.instrumentName = "Harmony "
  \set Score.markFormatter = #format-mark-box-letters
  \relative c' {
    \key c \minor
    \tempo 4 = 120
    \compressFullBarRests
    \override MultiMeasureRest.expand-limit = #2

    \mark \default

    | R1*8
    \bar "||"

    \mark \default

    | R1*8
    \bar "||"

    \mark \default

    \repeat unfold 2 {
      | <des ges bes es>8 r <des ges bes es> r r <des ges bes es> r <es as c f>
      | r2 <es as c f>8 r <es as c f> r
      | <des ges bes es> 8 r <des ges bes es> r r <des ges bes es> r <es as c f>
      | R1
    }
    \bar "||"

    \mark \default

    \repeat unfold 2 {
      | <des ges bes es>8 r <des ges bes es> r r <des ges bes es> r <es as c f>
      | r2 <es as c f>8 r <es as c f> r
      | <des ges bes es> 8 r <des ges bes es> r r <des ges bes es> r <es as c f>
      | R1
    }
    \bar "|."

  }
}

%part: bass
bass = {
  \set Staff.instrumentName = "Bass "
  \set Score.markFormatter = #format-mark-box-letters
  \relative c {
    \key c \minor
    \tempo 4 = 120
    \compressFullBarRests
    \override MultiMeasureRest.expand-limit = #2

    \mark \default

    | es8. r16 r8 ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | r16 es r es es r ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | es8. r16 r8 ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | r16 es r es es r ges8-. as8. r16 r8 des,
    | r2 r16 ges8. r16 f8-- r16
    \bar "||"

    \mark \default

    | es8. r16 r8 ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | r16 es r es es r ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | es8. r16 r8 ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | r16 es r es es r ges8-. as8. r16 r8 des,
    | r2 r16 ges8. r16 f8-- r16
    \bar "||"

    \mark \default

    | es8. r16 r8 ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | r16 es r es es r ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | es8. r16 r8 ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | r16 es r es es r ges8-. as8. r16 r8 des,
    | r2 r16 ges8. r16 f8-- r16
    \bar "||"

    \mark \default

    | es8. r16 r8 ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | r16 es r es es r ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | es8. r16 r8 ges8-. as8. r16 r8 des,
    | r2 ges16 r ges r f r f r
    | r16 es r es es r ges8-. as8. r16 r8 des,
    | r2 r16 ges8. r16 f8-- r16
    \bar "|."

  }
}

%layout

\book {
  \score {
    <<
      \tempo 4 = 180
      \unfoldRepeats \new Staff \melody
      \unfoldRepeats \new Staff \harmony
      \unfoldRepeats \new Staff { \transpose ges, ges,, \bass }
    >>
    \midi { }
  }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "C-melody-harmony")
\book {
  \paper { 
    %page-count = #2
  }
  \header { poet = "C / Do" }
  \score {
    <<
      \new Staff \melody
      \new Staff \harmony
    >>
  }
  \markup { \bold "STRUCTURE: A B C D; B C; A B C (behind solos); D" }
}

#(set-default-paper-size "letter" 'portrait)
#(define output-suffix "C-harmony-bass")
\book {
  \paper { 
    %page-count = #2
  }
  \header { poet = "C / Do" }
  \score {
    <<
      \new Staff \harmony
      \new Staff { \clef bass \bass }
    >>
  }
  \markup { \bold "STRUCTURE: A B C D; B C; A B C (behind solos); D" }
}

#(define output-suffix "Bflat-melody-harmony")
\book {
  \paper { 
    %page-count = #2
  }
  \header { poet = "B flat / Si bémol" }
  \score {
    <<
      \new Staff { \transpose fes ges  \melody }
      \new Staff { \transpose fes ges  \harmony }
    >>
  }
  \markup { \bold "STRUCTURE: A B C D; B C; A B C (behind solos); D" }
}

#(define output-suffix "Eflat-melody-harmony")
\book {
  \paper { 
    %page-count = #2
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    <<
      \new Staff { \transpose beses, ges  \melody }
      \new Staff { \transpose beses, ges, \harmony }
    >>
  }
  \markup { \bold "STRUCTURE: A B C D; B C; A B C (behind solos); D" }
}

#(define output-suffix "Eflat-harmony-bass")
\book {
  \paper { 
    %page-count = #2
  }
  \header { poet = "E flat / Mi bémol" }
  \score {
    <<
      \new Staff { \transpose beses, ges, \harmony }
      \new Staff { \transpose beses, ges' \bass }
    >>
  }
  \markup { \bold "STRUCTURE: A B C D; B C; A B C (behind solos); D" }
}